home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / dev / e / capus2.lha / capus2 / LibTests / TEST_superview.library / cpad.e next >
Encoding:
Text File  |  1995-04-05  |  1.2 KB  |  42 lines
  1.  
  2. OBJECT controlpad
  3.     entryname:LONG
  4.     entrycontent:LONG
  5.     nextentry:LONG
  6. ENDOBJECT
  7.  
  8.  
  9. MODULE 'superviewsupport'
  10.  
  11. PROC main()
  12.     DEF pad:PTR TO controlpad
  13.     DEF fpad:PTR TO controlpad
  14.     DEF inimg=FALSE
  15.     IF svsupportbase:=OpenLibrary('superviewsupport.library',0)
  16.         IF SvSUP_LoadControlPad(arg,{pad})
  17.             fpad:=pad
  18.             WHILE pad
  19.                     /*
  20.                     IF StrCmp(pad.entryname,'IMAGE',5)
  21.                         IF inimg=TRUE THEN JUMP error
  22.                         inimg:=TRUE
  23.                     ELSEIF StrCmp(pad.entryname,'NAME',4)
  24.                         WriteF('>>>Name\n')
  25.                     ELSEIF StrCmp(pad.entryname,'DELAY',5)
  26.                         WriteF('>>>Delay\n')
  27.                     ELSEIF StrCmp(pad.entryname,'ENDIMAGE',8)
  28.                         inimg:=FALSE
  29.                     ENDIF
  30.                     */
  31.                     IF pad.entrycontent THEN WriteF('\s=\s\n',pad.entryname,pad.entrycontent) ELSE WriteF('\s\n',pad.entryname)
  32.                     pad:=pad.nextentry
  33.             ENDWHILE
  34.             error:
  35.             SvSUP_FreeControlPad(fpad)
  36.         ENDIF
  37.         IF svsupportbase THEN CloseLibrary(svsupportbase)
  38.     ENDIF
  39. ENDPROC
  40.  
  41.  
  42.